home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
games
/
zmud32.zip
/
ZMUD.EXE
/
0
/
RCDATA
/
TMENUDLG
/
TMENUDLG.txt
Wrap
Text File
|
1996-08-04
|
10KB
|
388 lines
object MenuDlg: TMenuDlg
Left = 200
Top = 140
ActiveControl = OKBtn
BorderStyle = bsDialog
Caption = 'Speed Menu'
ClientHeight = 285
ClientWidth = 499
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Position = poScreenCenter
ShowHint = True
OnActivate = FormActivate
OnCreate = FormCreate
OnDeactivate = FormDeactivate
PixelsPerInch = 96
TextHeight = 13
object Label8: TLabel
Left = 8
Top = 16
Width = 115
Height = 13
Caption = 'Click on an item to edit it'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image1: TImage
Left = 168
Top = 8
Width = 32
Height = 32
AutoSize = True
end
object Label3: TLabel
Left = 208
Top = 16
Width = 189
Height = 13
Caption = 'The Speed Menu is activated when you'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object AliasText: TLabel
Left = 178
Top = 130
Width = 39
Height = 13
Alignment = taRightJustify
Caption = 'Caption:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ComText: TLabel
Left = 162
Top = 154
Width = 55
Height = 13
Alignment = taRightJustify
Caption = 'Commands:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Bevel1: TBevel
Left = 152
Top = 8
Width = 9
Height = 273
Shape = bsLeftLine
end
object Label1: TLabel
Left = 224
Top = 30
Width = 181
Height = 13
Caption = 'right click on the MUD output window.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 208
Top = 48
Width = 268
Height = 13
Caption = 'Specify a caption for each item, along a list of commands'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object HelpTxt: TLabel
Left = 224
Top = 62
Width = 218
Height = 13
Caption = 'seperate multiple commands with a ; character'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Help2: TLabel
Left = 224
Top = 76
Width = 248
Height = 13
Caption = 'use %selword and %selline to refer to the word or line'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 240
Top = 90
Width = 115
Height = 13
Caption = 'that was right-clicked on'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton1: TSpeedButton
Left = 224
Top = 152
Width = 20
Height = 20
Hint = 'Edit command|'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF7733333033000000033333373377777773330000}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object OKBtn: TBitBtn
Left = 248
Top = 252
Width = 77
Height = 27
Caption = 'OK'
Default = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 0
OnClick = OKBtnClick
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 332
Top = 252
Width = 77
Height = 27
Cancel = True
Caption = 'Cancel'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 2
ParentFont = False
TabOrder = 1
OnClick = CancelBtnClick
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 416
Top = 252
Width = 77
Height = 27
Caption = '&Help'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object MenuCaption: TEdit
Left = 224
Top = 128
Width = 81
Height = 21
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
Text = 'MenuCaption'
OnChange = MenuCaptionChange
end
object MenuCom: TEdit
Left = 248
Top = 152
Width = 241
Height = 21
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
Text = 'MenuCom'
OnChange = MenuComChange
end
object MenuList: TListBox
Left = 8
Top = 32
Width = 129
Height = 185
ExtendedSelect = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 5
OnClick = MenuListClick
end
object NewBtn: TBitBtn
Left = 8
Top = 220
Width = 76
Height = 27
Caption = '&New'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = NewBtnClick
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object DelBtn: TBitBtn
Left = 8
Top = 252
Width = 76
Height = 27
Caption = 'Delete'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = DelBtnClick
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object BitBtn4: TBitBtn
Left = 92
Top = 226
Width = 22
Height = 21
Hint = 'Move Menu item Up|'
ParentShowHint = False
ShowHint = True
TabOrder = 8
OnClick = BitBtn4Click
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
333333333333333333333333333333333333333333333333333333E444444444
44433338FFFFFFFFFFFF33E6666666666643333833333333333F333E66666666
643333338333333333F33333E666666643333333383333333F3333333E666664
3333333333833333F333333333E66643333333333338333F33333333333E6433
33333333333383F3333333333333E33333333333333338333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
Margin = 1
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object BitBtn5: TBitBtn
Left = 115
Top = 226
Width = 22
Height = 21
Hint = 'Move Menu item Down|'
ParentShowHint = False
ShowHint = True
TabOrder = 9
OnClick = BitBtn5Click
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
333333333333333333333333333343333333333333333F333333333333346433
333333333333F383333333333346664333333333333F33383333333334666664
3333333333F333338333333346666666433333333F3333333833333466666666
64333333F3333333338333E6666666666643333F33333333333833EEEEEEEEEE
EE43333FFFFFFFFFFFF833333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
Margin = 1
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object DefItem: TCheckBox
Left = 224
Top = 184
Width = 265
Height = 17
Caption = 'Make this the default double-click action'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
end
object DefDef: TCheckBox
Left = 224
Top = 202
Width = 265
Height = 17
Caption = 'Use last selected item as default action'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
OnClick = DefDefClick
end
end